home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / dev / lang / nA-Iaiov0.7.lha / Iaio_v0.7ﾟ / Examples / magic.ajo < prev    next >
Text File  |  2002-04-16  |  632b  |  37 lines
  1. #magic - script for the Iaio0.7+!
  2. #beha'02 prof. Eles D. ;]
  3.  
  4. openscreen[0]=320/256/8/l//;
  5. setcol[0,0,0,0,0]
  6.  
  7. -loop:
  8. add[0,2] : set[1,!0] : add[1,20] : setpen[0,!1,0,0]
  9. move[0,0,!0] : draw[0,320,!0]
  10. nocase[0,256,loop]
  11.  
  12. set[0,0]
  13. -loop2:
  14. add[0,2] : setpen[0,!0,0,0]
  15. move[0,!0,0] : draw[0,!0,256]
  16. nocase[0,320,loop2]
  17.  
  18. delay[50]
  19.  
  20. set[0,0]:set[1,100]:set[2,200]
  21.  
  22. setpen[0,2,0,0,0]
  23. text[0,270,246]=Iaio
  24. text[0,272,246]=Iaio
  25. text[0,270,248]=Iaio
  26. text[0,272,248]=Iaio
  27. setpen[0,1,0,0,0] : text[0,271,247]=Iaio
  28.  
  29. -mainloop:
  30. add[0,1] : sub[1,1] : add[2,1] : setcol[0,0,!0,!1,!2]
  31. delay[1] : onlmb[exit]
  32. jump[mainloop]
  33.  
  34. -exit:
  35. closescreen[0]
  36. quit
  37.